home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / lang / Forth.lha / Forth / Basic-Benchmarks / lines < prev    next >
Encoding:
Text File  |  1994-04-04  |  129 b   |  11 lines
  1. t=timer
  2. for a= 1 to 10
  3. FOR x=0 TO 2
  4.   FOR y=0 TO 200 
  5.   LINE (640-x,y)-(x,200-y),x+1
  6.   NEXT y
  7. NEXT x
  8. next a
  9. ?timer-t
  10. sleep:sleep
  11.